a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối

b: Sai vì chỉ số đầu, chỉ số cuối là số thực

c: Sai vì chỗ end thiếu chấm phẩy

d: Sai vì chỉ số đầu lớn hơn chỉ số cuối

e: Sai vì chỉ số đầu và chỉ số cuối là số thực

d: Đúng

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

a) Đúng. Vòng lặp for được sử dụng để lặp lại việc xuất chuỗi 'A' từ i=150 đến i=1.

b) Sai. Vòng lặp for yêu cầu chỉ sử dụng các giá trị nguyên, không phải là các giá trị số thực => không thể sử dụng i làm biến đếm trong vòng lặp này. (bạn có thể sử dụng một biến số nguyên khác để đếm số lần lặp lại, hoặc sử dụng vòng lặp while)

c) Sai. Câu lệnh While cần có một điều kiện để kiểm tra, trong khi trong câu lệnh này không có điều kiện nào để kiểm tra. Nếu không có điều kiện để kiểm tra, vòng lặp sẽ lặp vô hạn và không bao giờ dừng lại.

câu 1:

a)for i:=17 to 109 do writeln('a');

b)for i:=1 to 10 do x:=x+1;

c)s:=7;

while s<=15 do

begin

n:=n+s;

s:=s+1;

end;

d)var a:array[1..100] of real;

câu 2:

program tihn_tong;

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;s:=1000;

while i<=21 do

begin

s:=s+1000+i;

i:=i+1;

end;

writeln(s);

readln;

end.

câu 3:

cú pháp của lệnh for...to...do:

for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>

cú pháp của lệnh while...do:

while<điều kiện>do<công việc>

câu 4:

cú pháp khai báo biến mang trong chương trình pascal:

khai báo trực tiếp:

var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>

khai báo gián tiếp:

type <biến mang> =array[chỉ số]of <kiểu dữ liệu>

Câu 1: 

a) for i:=17 to 109 do 

  writeln('a');

Câu 1: 

b) for i:=1 to 10 do 

x:=x+1;

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;

a) 2 lỗi

- thiếu do

- vòng lặp for tuyệt đối không có ;

b: sau writeln('A') không có chấm phẩy

c: sai chỗ y:=10

phải là y=10 mới đúng

d: sử dụng 2 chấm phẩy là sai

sau while do nếu có từ 2 lệnh trở lên phải bao bọc trong begin end

e: thiếu dấu : sau i, đi từ 100 tới 20 là sai,

phải là for i:=100 downto 20 do mới đúng

f: không sai

d,e ko sai

a, sai vì dấu "," phải được thay bằng ".."

b, c, sai vì chỉ số đầu và cuối đều phải kiểu nguyên

d, sai vì chỉ số đầu phải nhỏ hơn chỉ số cuối

e, đúng

a) Var X : Array [1;50] of integer;  (sai cách khai báo mảng)

-> Var X : Array [1..50] of integer; 
b) Var X : Array [5..50.5] of real; (sai vì chỉ số là số thực)

-> Var X : Array [5..50] of real;
c) For i: 1,5 to 10 do write ('A'); (sai vì giá trị đầu là số thực)

-> For i: 1,5 to 10 do write ('A');
d) For i: 1 to ; 10 do write ('A'); (sai vì sau to có dấu ; và sau i: thiếu dấu =)

->For i:= 1 to 10 do write ('A')
e) While x:=10 do x:=x+5; (điều kiện sai, đây là phép gán không phải điều kiện)

-> While x=10 do x:=x+5;

PROGRAM Ten_KTGK_DTNT_Buon_Ho;

VAR i: Real;

S: integer;

Begin

S := 0;

For i := 1 To 20 Do

S:= S+i;

Write (‘Tong S =’ , S);

End.